Asymetrix Multimedia Toolbook 4.0 (CBT Edition)

home *** CD-ROM | disk | FTP | other *** search

/ Asymetrix Multimedia Toolbook 4.0 (CBT Edition) / Asymetric Multimedia Toolbook 4.0 (CBT Edition).iso / ctb40ap.z / MULTDROP.SPB (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1996-01-10 | 148KB | 2,692 lines

dialogs Widget Editor dialogs Widget Editor Scoring addAnswer general CBT_WID_DragImage feedback Answers Delayed Feedback dialogs CANCEL button "CANCEL" of field single button "OK" of syscuror default keyDown -- generic dialog handler -- test Bexits so, does action isObject(" B""CANCEL"" buttonclick syscuror = default n = keyEnter B""OK"" = NULL "single" fieldType B"OK" 94080216150514626234020 ASYM_TpID defaultButton Button id 9 of Background id 2 defBtn needFix Button id 9 of Background id 2 cancelBtn ComboBox id 13 of Page id 9 refFocus Button id 2 of Background id 2 refBtn buttonClick buttonClick default cancel buttonClick buttonClick close escape Cancel addAnswer FBPlayText %ASYM_WinHelp FBSendMsg buttonclick keyDown buttonclick = "FBPlayText" ASYM_WinHelp(1030,"") = "FBSendMsg" /40,"") = "addAnswer" T50,"") notifyBefore keyDown author enterPage Button id 9 of Background id 2 addAnswer keyChar x = 27 close 15,15 lastUnits Select or enter an object name:.............age..nswered. 3dField tbk_wid_type answer ,&H.& s_wid_targetWindow FALSE s_wid_targetObject objList whatName sortList xenterPage notifyBefore xenterPage 4s_wid_targetWindow, s_wid_targetObject dropdownitems = NULL A <> shownBy objList = sortList(getObjectList( ,"",FALSE)) whatName = t <> odropDownItems = flag = -TRUE CRLF& uirnamed) (unnamed) dshgdfh score Incorrect Correct ASYM_GetString propValue 9touched propValue buttonClick propValue propValue ASYM_Reset propValue ASYM_GetString("Correct") Incorrect") buttonClick otouched = notifyBefore ASYM_Reset touched Correct Any named object dragged and dropped onto the object specified in the General tab can be an answer. The combo box below shows all the object names found on this page, except the names already specified as answers. ASYM_Reset xenterPage Delayed Feedback propsRead FALSE IsDetailedFB 3dField tbk_wid_type ASYM_WID_SummaryFeedbackList array propType numCorrect numAnswers selectedItems useObjectType All Correct All Incorrect Partially Correct Feedback to execute on request when the responses are...e, and the responses are...ay its fPlaeedback, and the responses are... one or more): (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Question feedback group Caption Question feedback Send OpenScript: fbtextprompt Feedback text: Go to page: Of book: fbclipprompt Play media clip: FBNavBook propType FBPlayClip FBSendMsg FBNavPage FBPlayText EditFeedbackButtons ansFld d6fbArray ASYM_WID_ANSWERS false s_wid_targetObject NavPage Feedback selLines OSMsg HsUpdateThisPage ASYM_WID_SummaryFeedbackList _ASYMA_EditFeedback oansArray oansArray e6fbArray hyperlink buttonClick buttonClick loc SYSTEM s_wid_targetObject LOCAL ansArray[][] "Feedback" ansFld = "ASYM_WID_ANSWERS" fb = "ASYM_WID_SummaryFeedbackList" = fbArray fb = selLines = selectedtextlines NULL c"clip" c"Msg" "OSMsg" c"NavPage" "hyperlink" _ASYMA_EditFeedback( UpdateThisPage FBPlayText Click to select file helpText exclude FBPlayClip Click to select file helpText exclude FBSendMsg Click to select file helpText exclude FBNavPage Click to select file helpText exclude leavePage leaveBackground ASYM_Reset enterPage enterBackground false feedback 15,15 lastUnits dirtyBit propsRead showImmediate IsImmediateFB false IsDetailedFB ASYM_WID_DelayFeedback propValue update propValue update enterPage update buttonClick ASYM_WID_Answers Immediate Feedback Options 7wASYM_Container update ASYM_WID_Answers leavePage false propValue asym_reset propValue update notifyBefore buttonClick isEnable = myPg = ASYM_Container( enabled "Immediate Feedback Options" "ASYM_WID_Answers" notifyAfter asym_reset propType Enable feedback at time of response Immediate Feedback Options (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Possible answers group Possible answers ASYM_WID_ANSWERS HsupdateThisPage oansArray buttonClick buttonClick LOCAL ARRAY ansArray[][] theList bg = ss = dimensions( zi][10] TRUE -- i][11] > 0 selectedTextLines "ASYM_WID_ANSWERS" bg = updateThisPage Select All &Correct ASYM_WID_ANSWERS HsupdateThisPage oansArray buttonClick buttonClick LOCAL ARRAY ansArray[][] theList bg = ss = dimensions( zi][10] <> TRUE selectedTextLines "ASYM_WID_ANSWERS" bg = updateThisPage Select All &Incorrect Send OpenScript: fbtextprompt Feedback text: Go to page: Of book: fbclipprompt Play media clip: FBNavBook propType FBPlayClip FBSendMsg FBNavPage FBPlayText EditFeedbackButtons ansFld d6fbArray ASYM_WID_ANSWERS false s_wid_targetObject NavPage Feedback selLines OSMsg HsUpdateThisPage ASYM_WID_SummaryFeedbackList _ASYMA_EditFeedback oansArray oansArray e6fbArray hyperlink buttonClick buttonClick loc SYSTEM s_wid_targetObject LOCAL ansArray[][] "Feedback" ansFld = "ASYM_WID_ANSWERS" fb = "ASYM_WID_SummaryFeedbackList" = fbArray fb = selLines = selectedtextlines NULL c"clip" c"Msg" "OSMsg" c"NavPage" "hyperlink" _ASYMA_EditFeedback( UpdateThisPage FBPlayClip Click to select file helpText exclude FBPlayText Click to select file helpText exclude FBSendMsg Click to select file helpText exclude FBNavPage Click to select file helpText exclude asym_reset enterPage leavePage false Scoring propValue answerWeight UpdateThisPage UpdateThisPage selLines, AnsArray[][] Hreference i = ansArray[i][11] propValue "answerWeight" = FALSE dirtyBit 15,15 lastUnits false propsRead ASYM_WID_IsScored propValue MaxScore ASYM_WID_MaxScore ASYM_WID_RoundScore MinScore ASYM_WID_MinScore 7wASYM_Container propValue propValue buttonclick propValue pg = ASYM_Container( enabled "ASYM_WID_MaxScore" pg = pg = "ASYM_WID_MinScore" pg = pg = "ASYM_WID_RoundScore" pg = "scoring options box" pg = buttonclick logical propType Score this question maxScore Highest possible score: minScore Lowest possible score: Score weight of selected answer:r:: 3dField tbk_wid_type AnswerWeight propType ASYM_WID_AutoScoreWeight background 6/ASYMA_GetAuthorIni Widget Edit AutoWeight autoAssignWeight 7wASYM_Container propValue propValue n9ASYMA_SetAuthorIni Widget Edit AutoWeight background 8FixupWeights autoAssignWeight propValue 7wASYM_Container buttonClick background autoAssignWeight propValue 7wASYM_Container enterPage propValue = ASYMA_GetAuthorIni("Widget Edit","AutoWeight") autoAssignWeight ASYM_Container( /") = notifyBefore OK ASYMA_SetAuthorIni(" buttonClick FixupWeights Boolean propType Automatic 3dField tbk_wid_type ASYM_WID_MinScore RoundToMin ASYM_ExpandString Report the lowest score: %1 ASYM_GetString 7wASYM_Container propValue propValue propValue propValue leaveField propValue xisType(real, B"RoundToMin" ASYM_Container( ")= \ ASYM_ExpandString(ASYM_GetString(\ "Report the lowest score: %1"),\ propType 3dField tbk_wid_type ASYM_WID_MaxScore ASYM_ExpandString Report the highest score: %1 ASYM_GetString RoundToMax 7wASYM_Container propValue propValue propValue propValue leaveField propValue xisType(real, B"RoundToMax" ASYM_Container( ")= \ ASYM_ExpandString(ASYM_GetString(\ "Report the highest score: %1"),\ propType ASYM_WID_RoundScore ,&H.& Button roundToMin noRounding roundToMax propValue ,&H.& Button noRounding propValue propValue "roundToMax" "roundToMin" "noRounding" objs = BUTTON Zdefault STRING propType RoundScore Prompt For a partially correct response: NoRounding Use the weight assigned to each possible answer to xtra 1 compute an exact score RoundToMin Report the lowest score: 0 RoundToMax Report the highest score: 1 Possible answers update UpdateThisPage oAnsArray update enterPage Possible answers: %1 ASYM_GetString Correct answers: %2 Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1" & CRLF & "Correct 2"),\ n, Possible answers: 0 Correct answers: 0s): 0 (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Caption Possible answers enterPage ASYM_reset 8Z,Ps FixupWeights UpdateThisPage Answers isCorrect delete <else> propValue UpdateThisPage fldAns ASYM_WID_ANSWERS Delete deleteAnswer clear UpdateThisPage selLines, AnsArray[][] Hreference LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef i = propValue B"isCorrect" = ansArray[i][10] = TRUE enabled B"delete" = fldAns = "ASYM_WID_ANSWERS" B"Delete" deleteAnswer N ^ u4 15,15 lastUnits FALSE dirtyBit propsRead IsCorrect Incorrect Correct ASYM_GetString propValue ASYM_WID_ANSWERS KtoggleCorrect propValue buttonClick propValue propValue ASYM_Reset propValue ASYM_GetString("Correct") Incorrect") buttonClick toggleCorrect "ASYM_WID_ANSWERS" notifyBefore ASYM_Reset count Add... ASYM_WID_ANSWERS EditAnswer buttonclick buttonclick EditAnswer "ASYM_WID_ANSWERS" Edit... Delete ASYM_WID_ANSWERS deleteAnswer buttonclick buttonclick deleteAnswer "ASYM_WID_ANSWERS" Delete ASYM_WID_AutoLockAnswer propValue propValue propValue propType Cannot change responses ASYM_WID_MultipleAnswers background mxAllowMultipleAnswer 7wASYM_Container propValue propValue w, #> Cannot clear multiple ASYM_GetString oansArray propValue Cannot clear this option: You have more than one answer marked as correct. buttonClick propValue AllowMultipleAnswer ASYM_Container( /") = buttonClick ZansArray[][] ZWORD n,i dimensions( ci][10] n > 1 K& CRLF & ASYM_GetString("Cannot [multiple",\ option: You have more than one answer marked %correct.") = TRUE logical propType Allow multiple responses ASYM_WID_RejectWrong propValue propValue propValue logical propType Reject incorrect answers ASYM_WID_DragSnap propValue propValue propValue logical propType Snap dropped objects to center of target (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Caption Possible answers Possible answers update UpdateThisPage oAnsArray update enterPage ASYM_GetString Possible answers: %1 Correct: %2 Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1 Correct: %2"),\ n, Possible answers: 4 Correct: 1swer(s): 0 ASYM_Reset enterPage enterPage UpdateThisPage Incorrect ASYM_BeenHere false Widget Editor 94080216070211604290110 ASYM_TpID selectedAnswer AllowMultipleAnswer ansArrayElse autoAssignWeight Correct Incorrect Partially Correct fbArray <else> FALSE AnsArray defaultButton Button id 81 of Background id 0 defBtn needFix Button id 82 of Background id 0 cancelBtn Button id 81 of Background id 0 refFocus Button id 81 of Background id 0 refBtn default cancel buttonclick buttonclick close escape Cancel delayed feedback feedback %ASYM_WinHelp answers scoring general buttonClick keyDown buttonClick pg = pg = "general" ( = 1000 pg = "answers" G = 1100 pg = "scoring" f = 1110 pg = "feedback" = 1120 pg = "delayed = 1130 <> NULL ASYM_WinHelp( notifyBefore 3dField tbk_wid_type 360,1740 defpos ASYM_WID_ANSWERS array propType numCorrect numAnswers selectedItems FALSE useObjectType FiveTabFolder _currentTab cheat grey cheat black cheat white hilite tabEdge 1 white black tabEdge 2 white black tabEdge 3 white black tabEdge 4 white black tabEdge 5 white black Current Tab Edge white black sized sized "mask" sysPageUnitsPerPixel x1 = x2 = y1 = y2 = xp2 = xp*2; yp2 = yp*2 = x2-xp,y1, x1+ 5,y1, x1,y1+ 6, x1,y2 U"grey" = x2-xp,y1+ _,x2-xp,y2 = x2-xp,y1+yp,x2,y1+ +yp,x2,y2 white black Tab 1 135,390,1975,705 defBounds &1 - General Tab 2 1990,390,3830,705 defBounds &2 - Answers Tab 3 3845,390,5685,705 defBounds &3 - Scoring Tab 4 135,75,2902.5,390 defBounds &4 - Immediate Feedback Tab 5 2917.5,75,5685,390 defBounds &5 - Delayed Feedback box grey box black keyDown leavePage leaveBackground ASYM_Reset enterPage enterBackground author keyChar 1|5z5z5 general %\*B. 15,15 lastUnits FALSE dirtyBit false propsRead ASYM_BeenHere 3dField tbk_wid_type propValue propValue ASYM_Reset keyChar propValue notifyBefore ASYM_Reset ) > 32 string propType (unnamed) Object that will act as Drop Target: Object: enterPage notifyBefore sized 3dField tbk_wid_type ASYM_WID_TargetObject object propType useObjectType foobar! foobari TimeMax Maximum time (secs): TriesMax Maximum tries: Question Name: plain enterPage notifyBefore A "try" is counted every time delayed feedback or score is provided. This option is ignored if "Cannot change responses" is checked.....ed.ed" option is enabled.bled. Automatically Reset Question:::::: (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Limits group caption Limits on interaction ASYM_WID_TimeMax ASYM_WID_TimeMax propValue maxFld ASYM_WID_TimeMax TimeMax propValue maxFld ASYM_WID_TimeMax TimeMax buttonclick propValue val = "ASYM_WID_TimeMax" isType(real, B*1000) mode = > 0)) maxFld = enabled i/1000)) buttonclick logical propType Limit time 3dField tbk_wid_type ASYM_WID_TimeMax ASYM_WID_TriesMax ASYM_WID_TriesMax propValue maxFld TriesMax ASYM_WID_TriesMax propValue maxFld TriesMax ASYM_WID_TriesMax buttonclick propValue val = "ASYM_WID_TriesMax" isType(real, mode = > 0)) maxFld = enabled buttonclick logical propType Limit tries 3dField tbk_wid_type ASYM_WID_TriesMax enterPage notifyBefore sized 3dField tbk_wid_type ASYM_WID_AutoReset choice ,enterPage,leavePage,always propValue ASYM_GetString When leaving the page Always enterPage choice When entering the page leavePage Never always propValue choice selectchange propValue ochoice ,always" = ASYM_GetString("Never") When entering the !leaving bAlways") odropDownItems = = TRUE oselectedItem = selectchange propType choice Neverseaving the pagee Never When entering the page When leaving the page Always Possible answers update UpdateThisPage oAnsArray update enterPage Possible answers: %1 Correct: %2 ASYM_GetString Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1 Correct: %2"),\ n, Possible answers: 1 Correct: 000swer(s): 0 Possible answers update UpdateThisPage update enterPage ASYM_GetString Score this question x scoring Score this question: %1 ASYM_WID_IsScored 7wASYM_Container update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore B"ASYM_WID_IsScored"\ "scoring" ASYM_Container( ASYM_GetString("Yes") = expandString( question x",\ : %1"), Score this question: NosCorrect: 0swer(s): 0 Possible answers Immediate Feedback: Enabled (None specified) Possible answers update UpdateThisPage update enterPage Delayed feedback: %1 d6FBArray None specified false Summary feedback x found ASYM_GetString Specified update notifyAfter UpdateThisPage selLines, FBArray[][] Hreference update notifyBefore LOCAL WORD i, j found = ss = n = dimensions( j >= 3 j <= 12 i][j] <> ASYM_GetString("Specified") !None specified") = expandString( Jummary feedback x",\ "Delayed : %1"), Delayed feedback: None specified 0swer(s): 0 ASYM_Reset enterPage UpdateThisPage ialog Feedback Text Page "clipChooser" Definable Drop Target - Question Properties Add an Answer Page "general" ltiple Choice Question Properties SubDialog edback Text Page "AddAnswer" Page id 13 Multiple Choice #1 Question Properties Target - Question Properties Add an Answer Page "general" ltiple Choice Question P dialogs Widget Editor Mike Florence info_LastSavedBy 8/26/94 2:47:53 PM ASYM_LogName Claude Ostyn 12/14/95 9:08:31 PM Sans Serif MS Sans Serif <BookPath> info_LastSaved Serif 11/23/94 7:49:42 AM erties INFO_Title 10/10/95 3:13:06 PM aude Ostyn ASYM_LogAppend ASYM_LogEncrypt <auto> rameUpdate sysPageUnitsPerPixel <> lastUnits e = TRUE buttonUpdate frameUpdate e= FALSE $d}l}@ :HDMEDIAPATH Arial Sans Serif Sans Serif MS Sans Serif .'+ +F sortlist ASYM_WorkWindow s_wid_targetObject s_wid_targetWindow tb40dlg.dll enterBook of background enterfield 4s_wid_targetObject, s_wid_targetWindow X"tb40dlg.dll" sortlist( B = NULL N = ASYM_WorkWindow() Sans Serif de Ostyn 10/3/95 12:04:45 PM 10/2/95 4:41:31 PM Sans Serif Definable Drop Target - Question Properties 8:00:27 PM ASYM_AuthorResetPrompt Asymetrix Corporation .'+ +F sortlist ASYM_WorkWindow s_wid_targetObject s_wid_targetWindow tb40dlg.dll default enterBook 4s_wid_targetObject, s_wid_targetWindow X"tb40dlg.dll" sortlist( B = NULL N = ASYM_WorkWindow() = default Claude Ostyn Claude Ostyn Claude Ostyn 10/10/95 3:14:13 PM @80*x< 11/2/95 7:00:06 PM 4s_wid_targetObject, s_wid_targetWindow X"tb40dlg.dll" sortlist( B = NULL N = ASYM_WorkWindow() = default author skrefFocus "8ASYM_PostMsg cancelBtn buttonClick refBtn keyChar Cancel cancelBtn refBtn defBtn skrefFocus ASYM_IsWin31 enterPage skrefFocus setDefButton refBtn button field skrefFocus pushbutton cancelBtn defBtn WORDWRAP rkrefFocus notifybefore notifyAfter xisOpen targetWindow) (currentPage targetwindow <> x = 13 orefBtn enabled ASYM_PostMsg "buttonClick", orefFocus x = 27 ocancelBtn notifyBefore B"Cancel" odefBtn = B"OK" ASYM_IsWin31() u= "pushbutton" setDefButton btn o = o = NULL o <> " OK = ( fieldType "WORDWRAP") u = sysPageUnitsPerPixel x1 - x, y1 - y, x2 + x, y2 + y o = N default button ^YVYVY buttonclick mode = FALSE = BLACK addAnswer "ASYM_WID_ANSWERS" notifyAfter startTime = NULL /) <= 1) count = ASYM_Ticks() currentTime = + 200 = LIGHTGRAY + 200 -- This specific the MULTIDROP widget WarningString ASYM_GetString("MultiDrop Exception "You have selected options that may be incompatible "more than one question type ."&&\ recommended ^you enable Allow Multiple Answers"&&\ xuse feedback >,"&&\ "Cannot Change Responses Reject Unrecognized Objects") buttonClick SYSTEM s_wid_targetWindow, s_wid_targetObject LOCAL ARRAY ansArray[][] B"ASYM_WID_AutoLockAnswer" "answers" = TRUE B"ASYM_WID_RejectWrong" B"ASYM_WID_MultipleAnswers" [FALSE dimensions( )][12] <> NULL )][13] <> )][15] <> objList = ASYM_CollectWidgets() ASYM_WID_QType R = " _ <> ignoreStr = Ignore") fixitStr = Fix It") "&" & "&" & pg = propValue pg = pg = pg = )][12] = )][13] = )][15] = notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL FBArray[][] WORD i, j par1, par2 B"ASYM_WID_DelayFeedback"\ "feedback" ASYM_Container( T = ASYM_GetString("Enabled") found = ss = n = dimensions( j >= 3 j <= 12 i][j] <> None specified","( Disabled") = expandString( Immediate x y",\ : %1 %2"), propValue val = isType(real, < 0 x = -1 x = 1 B*100),100),-1) * x LOCAL ARRAY ansArray[][] theWeight = SelectedTextLines "ASYM_WID_ANSWERS" AnsArray[i][11] = notifyAfter FixupWeights ay[][] t][11] notifyBefore olastSel = oselectedTextLines AASYM_Reset LOCAL ARRAY fbArray[][] = ASYM_GetString("DelayedFeedbackForMultiObjects",\ "All Correct" &CRLF& " Incorrect" & Partially bg = ss = = ss; dimensions( ) = 0 initFBArray updateThisPage propValue SYSTEM {s_wid_targetObject -- -- " a dummy. o sets up the main used work fanswers bg = ASYM_Container( ss = = FALSE = ASYM_WID_SummaryFeedback bg = Hreference 1][1] = " 2][1] = " 3][1] = " /") = -- function returns a value; side effect, because you can't REAL weights {loc, isShift, isCtrl hitLine hitChar sel = > textlineCount( n = n = temp = n n = hitline ASYM_itemOffset( , sel) whatItem toggleAnchor blankThisPage UpdateThisPage updateCurrentAnswer i, newVal L = L][i] = setTextFeedback txt, option r 12, r 14, setMsgFeedback msgString r 15, setNavPage pgName, pgCaption setNavBook bookName 8", "") = "" WidgetHasElseAnswer -- This pseudo property /controls whether -- there should be >" answer -- The < > option used only Question widgets -- that have -ended Woptions. -- Not fTRUE/FALSE questions, example WidgetHasMultipleAnswers enable multiple answers )the same ASYM_reset oAnsArray SYSTEM s_wid_targetObject, s_wid_targetWindow LOCAL M[][] linkDLL "tb40dlg.dll" STRING ListToTextLine( = ASYM_WID_AnsArray dimensions( ) = 0 -- There was no ARRAY stored -- no defined. ansArray[1][1] = "< 0] = &1] = 0 -- Preset compatibility folder oautoAssignWeight = (ASYM_WID_AutoScoreWeight \ AllowMultipleAnswer "ASYM_WID_Answers" pg = propsRead pg = readObjProps pg fixupWeights autoSpread REAL TotalPositive, theWeight WORD i, n, nCorrect CorrectList, IncorrectList allowMultipleAnswer = ( n = [i][11] istype( [i][10] = [i][10] = InCorrectList n > 0 totalPositive > 0 = 1 / j <> ][11] = = (1 / ][11] = ][11] * ][11] = ][11])) low = -( ][11] = -- Get settings -- If a has a "propValue" -- use value -- dialog {. Checked checkboxes can be %such. = NULL bg = y; pg = objs = getObjectList(pg," ,combobox", propType = oType = propName = " && #&& " " && pg = -- Where they differ {, change -- If a {. Unactivated bg = pg = t(pg," " && " && proptype = " nam = h(propvalue) setString = " " && " && && " " && QUOTE & obj && " && " && && " " && " && " && && " " && tbk_wid_name = "ASYM_Q" ASYM_Reset "afterEdit" close = default Cancel numCorrect [i][10] numAnswers updateThisPage selLines, Hreference -- handled Hindividual blankThisPage buttonClick n = lockScreen ShowCurrentTab (n) notifyBefore o_currentTab /+ 1) sized sysPageUnitsPerPixel x1 = x1 - x1 x2 = x2 - x2 y1 = y1 - y1 y2 = y2 - y2 y = resizeTabs(1,x1,y1,x2,y2,xp,yp, m"hilite" = x1,y2,x1,y,x2-xp,y m"box grey" = x2-xp,y,x2-xp,y2-yp,x1+xp,y2-yp = x2,y,x2,y2,x1+xp,y2 c = c = 1 9" && c) = defBounds y; n = 1; n <= 3 tabRow = 1 btn = 9" && n) H0,-(yp * 2) Hxp*2 Hxp*2 Hyp*3 grp = Edge" newActiveRow,x1,y1,x2,y2,xp,yp,snap btnH = 315 -- magic Hxp*2 Hxp*2 currentRow = o_row toff = 3 cols = 2 ArrangeRow , x1,y1,x2,y2,xp,yp, y1 = y1 + ArrangeCheats x1,y1,x2,y2,xp,yp , x1,y1,x2,y2,xp,yp, , x1,y1,x2,y2,xp,yp, y1 = y1 + 1,x2,y2,xp,yp , x1,y1,x2,y2,xp,yp, y1 + , x1,y1,x2,y2,xp,yp, colSize = (x2-x1-xp*( -1)) / xoff = (colsize * (i-1)) + xp * (i-1) x1 + x1 + W, y1, , y1+ 9" && i+ resizeTabEdge ("tabEdge" && i+ arrangeCheats x1,y1,x2,y2,xp,yp yp2 = yp*2 U"cheat = x1,y1,x1,y1+ = x2,y1,x2,y1+ = x2-xp,y1,x2-xp,y1+ obj, bnds, x1 = x1 - x1 x2 = x2 - x2 y1 = y1 - y1 y2 = y2 - y2 xp2 = xp*2; = x2- $,y1, x1+ .,y1, x1,y1+yp2, x1,y2 = x2-xp,y1+ $x2-xp,y2 = x2-xp,y1+yp,x2,y1+ V+yp,x2,y2 "FBNavBook" B"FBNavPage" t <> UpdateThisPage selLines, AnsArray[][] Hreference, pg LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef, OSMsg, DestPg, DestBk y; pg = BlankThisPage i = = ansArray[i][12] OKtxt = +tem j ][12] <> i = stageRef = OKclip = i = 3] <> 3] <> 3] <> i = OKmsg = ][15] <> i = OKdestPg = ][2] <> i = OKdestBk = ][4] <> -- visual update here oldLock = lockScreen fldTxt = "FBPlayText" fldClip = "FBPlayClip" fldOsMsg = "FBSendMsg" fldNavPg = fldNavBk = ASYM_GetString(" blankThisPage = lightGray "FBNavBook" B"FBNavPage" t <> UpdateThisPage selLines, AnsArray[][] Hreference, pg LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef, OSMsg, DestPg, DestBk y; pg = BlankThisPage i = = ansArray[i][12] OKtxt = +tem j ][12] <> i = stageRef = OKclip = i = 3] <> 3] <> 3] <> i = OKmsg = ][15] <> i = OKdestPg = ][2] <> i = OKdestBk = ][4] <> -- visual update here oldLock = lockScreen fldTxt = "FBPlayText" fldClip = "FBPlayClip" fldOsMsg = "FBSendMsg" fldNavPg = fldNavBk = ASYM_GetString(" blankThisPage = lightGray notifyBefore olastSel = oselectedTextLines oenabled = QASYM_Reset pg = pgName = showMe = <> "General" '<> "Delayed Feedback" LOCAL ARRAY ansArray[][] opropValue = y--*** TEMP bg = lastItem = ss = = ss; r<> NULL; fixAnsArray; "feedback" "multiSelect" "SingleSelect" ofieldType UpdateThisPage BlankThisPage selectedTextlines SYSTEM {s_wid_targetObject -- y[][] -- " a dummy. sets up the main used work fanswers ss = = FALSE = ASYM_WID_AnsArray bg = ASYM_Container( dimensions( ) = 0 -- there was no stored fthat -- There nothing elseString = ASYM_GetString("Anything magic bg = n = txt = i][1] SPACE & i][10] = i][10] = fixupLine -- function returns a value; side effect, because you can't y[][] REAL weights xautoAssignWeight numAnswers = i][11] ASYM_isNumber( < 99 > 101 yesStr = Yes") noStr = The positive && "don't 100%. Redistribute automatically?")\ f"&" & "&" & DistributeWeights Ztotal, Hreference ZweightList i][11] = i][11] / addAnswer y[][] dlgPage = dlgCB = comboBox " xprepDlgCB ( ) > 1 -- -- "All named are already specified -- -- }were found on want type p?") f"&" & "&" & -- B"score" OK = ASYM_ShowDialog("subdialog"," "),"modal") isOpen e= TRUE close whatItem = -+1][i] = ;][i] J][i] answerWeight = 1 correct = ][1] = ][10] = ][11] = updateThisPage , dflt s_wid_TargetWindow, s_wid_TargetObject alreadyThere, DDItems useObjectType = i][1] dropObjTree = ASYM_WID_TargetObject"\ ASYM_itemOffset( t) < 1 s_wid_targetWindow objList = getObjectList( ) > 0 whatName = ) = 0)\ ) = 0) = sortList( ) < 1 dropDownItems ListToTextLine( editAnswer y[][] ][1]) ][10] = ][10] = ][10] OK = Edit ][1] = ][10] <> ][10] = ][10] ][11] = 1 ][11] = 0 deleteAnswer y[][], temp[][] selectedtextlines ) <> down expandString( Delete ""%1""?"),\ ][1])\ f"&" & "&" & counter = 1 i <> I][j] = i][j] sel = y[][] (txt) i][1] = B = 1 graphic , isShift, isCtrl y[][] hitLine hitChar isCorrectToggle = ( ) > 0 $ = 1) > textlineCount( hitline toggleCorrect how allowMultipleAnswer = ][10] = ][10] = ][10] ][11] = i <> i][10] <> i][10] = i][11] = 0 bitmap " fixupWeights blankThisPage a[][] = a[L][1] isElse = ( = ASYM_GetStandardString("< >","< a[L][10] = myColor = propValue SYSTEM s_wid_targetObject, s_wid_TargetWindow && QUOTE & nam = ASYM_ObjectsWhere( " && value ZansArray[][] oldLock = lockScreen e= TRUE [dropdownItems ss = reset dlgCB = xprepDlgCB( helpStr = ASYM_GetString("Help") NoAvailNamedObj",\ "There are no available named `OK") ASYM_WinHelp(1000,"") n = 1 odropDownItems textlineCount( n = i Hreference , s_wid_TargetObject LOCAL alreadyThere, DDItems useObjectType = dimensions( i][1] s_wid_targetWindow objList = sortList(getObjectList( ,"",FALSE)) whatName = C<> NULL) (ASYM_itemOffset( ) = 0) ) = 0) ListToTextLine( notifyBefore ASYM_Reset ) > 32 " ID " addAnswer ASYM_WID_ANSWERS FALSE buttonclick startTime ASYM_WID_ANSWERS count enterPage startTime count startTime FALSE currentTime ASYM_Ticks count You have selected options that may be incompatible when It is recommended that you enable Allow Multiple Answers and do not use feedback for <else>, Cannot Change Responses or Reject Unrecognized Objects ASYM_GetString more than one question of this type is on the page. MultiDrop Exception Warning WarningString ,&H.& ASYM_WID_QType ASYM_WID_RejectWrong objList FALSE Fix It ASYM_WID_MultipleAnswers ASYM_WID_AutoLockAnswer MULTIDROP wZASYM_CollectWidgets oansArray fixitStr `WarningString answers s_wid_targetWindow ASYM_GetString Ignore s_wid_targetObject oansArray ignoreStr propValue buttonClick update UpdateThisPage update enterPage None specified false (None specified) feedback found ASYM_WID_DelayFeedback ASYM_GetString Disabled Enabled oAnsArray Immediate Feedback: %1 %2 Immediate Feedback x y 7wASYM_Container update ,"JdY propValue ,"JdY propValue theWeight ASYM_WID_ANSWERS propValue oansArray oansArray propValue leaveField ASYM_WID_ANSWERS oansArray propValue FixupWeights ClastSel leavePage ClastSel leaveBackground ClastSel ASYM_Reset ASYM_GetString DelayedFeedbackForMultiObjects d6fbArray All Incorrect HsupdateThisPage All Correct initFBArray Partially Correct ClastSel ClastSel enterPage background s_wid_targetObject P#ASYM_WID_SummaryFeedback initFBArray e6fbArray 7wASYM_Container propValue background Incorrect Correct Partially Correct e6fbArray 7wASYM_Container initFBArray d6fbArray s_wid_targetObject Q#ASYM_WID_SummaryFeedback propValue d6fbArray hitChar hitLine ClastSel ClastSel ASYM_itemOffset buttonDown d6fbArray lastSel toggleAnchor HsUpdateThisPage whatItem ClastSel g8blankThisPage buttonUp ClastSel enterBackground ,&H.& d6fbArray HsupdateThisPage e6fbArray updateCurrentAnswer FuupdateCurrentAnswer setTextFeedback FuupdateCurrentAnswer setMsgFeedback FuupdateCurrentAnswer setNavPage FuupdateCurrentAnswer this book GetString setNavBook WidgetHasElseAnswer WidgetHasMultipleAnswers .'+ +F oAnsArray ASYM_reset ASYM_reset ,&H.& propsRead FALSE ASYM_WID_Answers ListToTextLine ~\WidgetHasElseAnswer ASYM_WID_AnsArray false readObjProps <else> VWidgetHasMultipleAnswers oAnsArray mxAllowMultipleAnswer tb40dlg.dll s_wid_targetObject FASYM_WID_AutoScoreWeight autoAssignWeight enterBackground propsRead readObjProps enterPage lxallowMultipleAnswer FALSE oansArray autoAssignWeight oansArray fixupWeights propType propType field,recordfield,button,group,combobox s_wid_targetWindow s_wid_targetObject propType s_wid_targetWindow s_wid_targetObject oType propName propsRead propValue oType propName readObjProps .'+ +F ,&H.& propType object propType field,recordfield,button,group,combobox <self> afterEdit propType s_wid_targetWindow s_wid_targetObject setString oType propValue propName setString s_wid_targetObject propValue ASYM_WID_AnsArray s_wid_targetWindow ASYM_Reset ASYM_Q tbk_wid_name oAnsArray default oType propName propValue Cancel oansArray numCorrect oansArray numAnswers updateThisPage blankThisPage .'+ +F ShowCurrentTab Button buttonClick ShowCurrentTab _currentTab enterPage ShowCurrentTab _currentTab resizeTabs box black box grey hilite sized tabRow current Tab Edge _currentTab resizeTabs defBounds _currentTab ShowCurrentTab currentRow ArrangeRow 4ArrangeCheats resizeTabs V, #? V, #? \:resizeTabEdge defBounds tabEdge ArrangeRow cheat grey cheat white cheat black arrangeCheats white black resizeTabEdge FBNavBook FBNavPage field buttonDoubleClick ,&H.& ,&H.& ,&H.& ,&H.& ,&H.& fldNavPg fldNavBk FBNavBook false this book OKmsg OKdestPg FBPlayText FBNavPage OKtxt fldOsMsg OKdestBk ASYM_GetString OKclip fldTxt fldClip FBSendMsg FBPlayClip g8BlankThisPage UpdateThisPage FBNavBook FBPlayText FBNavPage FBSendMsg FBPlayClip blankThisPage FBNavBook FBNavPage field buttonDoubleClick ,&H.& ,&H.& ,&H.& ,&H.& ,&H.& fldNavPg fldNavBk FBNavBook false this book OKmsg OKdestPg FBPlayText FBNavPage OKtxt fldOsMsg OKdestBk ASYM_GetString OKclip fldTxt fldClip FBSendMsg FBPlayClip g8BlankThisPage UpdateThisPage FBNavBook FBPlayText FBNavPage FBSendMsg FBPlayClip blankThisPage ClastSel leavePage ClastSel leaveBackground ClastSel ASYM_Reset multiSelect feedback Delayed Feedback fixAnsArray oplastItem lastItem SingleSelect oansArray HsUpdateThisPage pgName General ClastSel propValue g8BlankThisPage enterPage background FALSE s_wid_targetObject fixupLine ASYM_WID_AnsArray Anything else magic string <else> ASYM_GetString oansArray elseString oansArray 7wASYM_Container propValue ,"Jc" GUASYM_isNumber background s_wid_targetObject noStr The positive answer weights DistributeWeights ASYM_WID_AnsArray ASYM_GetString yesStr autoAssignWeight don't add up to 100%. Redistribute automatically? oansArray 7wASYM_Container propValue DistributeWeights ASYM_GetString modal addAnswer FALSE dlgPage prepDlgCB Add an Answer subdialog fixupLine answer propValue oplastItem score correct dlgCB oansArray ASYM_ShowDialog oansArray propValue HsupdateThisPage answerWeight addAnswer dropObjTree background objList FALSE <self> s_wid_TargetObject ListToTextLine ASYM_itemOffset [useObjectType propValue useObjectType s_wid_TargetWindow ASYM_WID_TargetObject whatName General sortList 7wASYM_Container prepDlgCB ASYM_GetString modal addAnswer Edit the Answer FALSE dlgPage prepDlgCB oplastItem subdialog fixupLine answer score whatItem correct dlgCB oansArray ASYM_ShowDialog g8BlankThisPage oansArray propValue answerWeight HsUpdateThisPage editAnswer w, #> oplastItem whatItem ASYM_GetString yesStr oansArray Delete answer "%1"? oansArray HsUpdateThisPage g8BlankThisPage deleteAnswer ,&H.& answer oansArray fixAnsArray whatItem editAnswer answers buttonDoubleClick multiSelect hitChar hitLine oansArray ClastSel ASYM_itemOffset buttonDown 8fixupWeights lxallowMultipleAnswer false allowMultipleAnswer fixupLine FALSE whatItem oansArray autoAssignWeight oansArray toggleCorrect lastSel KtoggleCorrect HsUpdateThisPage whatItem ClastSel oansArray g8blankThisPage buttonUp ClastSel enterBackground subscript answer ASYM_GetStandardString myColor <else> correct fixupLine s_wid_TargetWindow <self> s_wid_targetObject ASYM_ObjectsWhere name of it is propValue ,&H.& ASYM_GetString %ASYM_WinHelp There are no available named objects on this page. prepDlgCB helpStr dlgCB oansArray NoAvailNamedObj propValue objList s_wid_TargetObject ListToTextLine [useObjectType useObjectType s_wid_TargetWindow whatName sortList ASYM_itemOffset prepDlgCB ASYM_Reset keyChar &File &Open Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear &Select All Shift+F9 selectall S&elect Page Shift+F12 selectpage F&ind... F5 search Re&place... replace &Author F3 author &Text &Character... F6 character &Paragraph... F7 paragraph Plai&n plain &Bold Ctrl+B I&talic Ctrl+T italic Under&line Ctrl+L underline Stri&keout Ctrl+K strikeout S&uper/subscript super/subscript &Normal script normalscript Su&bscript subscript Su&perscript superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right P&revious Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 index &Search for Help On... glossary &Tutorial tutorial &How To Use Help usinghelp &Keyboard keyboard C&ommands commands &About ToolBook... abouttoolbook wwwwww wz'www z'z"ww wwwwz wwwwww wwwwww wwwwww FALSE F 8 8 L *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Group Stage Button Viewer ComboBox Field RecordField Hotword *RHOTWORD* *TbxBase* 8 bxBase* F 8 9 TB40HYP.SBK bxBase* FALSE F 8 8 L FBDisplayOption filter FBShowIfNoMedia FBPlayText Feedback Text filter s_ctb40a_FBTextEdDB Set Page Name ASYM_GetString propValue 7wASYM_Container _EditFeedbackText FBPlayText FBDisplayOption FBShowIfNoMedia s_ctb40a_FBTextEdDB propValue closeThisWindow closeThisWindow cancel closeThisWindow